declare
fun {CMap List Function}
   case List of Head|Tail then
      thread {Function Head} end|{CMap Tail Function}
   else
      nil
   end
end

declare
List = [38 3 23 43 23 1 43]

declare
fun {Fib N}
   if N < 3 then
      1
   else
      {Fib N-1} + {Fib N-2}
   end
end

{Browse {CMap List Fib}}